home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / spcfont.zip / SAMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1992-06-21  |  1KB  |  39 lines
  1. Program Sample;
  2. Uses SPCFont,
  3.      CRT;
  4.  
  5. Var I : Byte;
  6. Begin
  7.  
  8.   WriteLn( 'The characters will only be remapped, if you have a VGA installed !' );
  9.  
  10.   WriteLn( 'Those are the chars from #01 to #06 :' );
  11.   For I := 1 to 6 do
  12.       Write( Char( I ));
  13.   WriteLn;
  14.  
  15.   Write( 'Now we''ll install the new charset <Press Enter> :' );
  16.   ReadLn;
  17.   InstallCharSet;
  18.   WriteLn( 'This is how the chars look remapped. You could use them in a checkbox ...' );
  19.   WriteLn( 'Format disk       : ',Button( True ));
  20.   WriteLn( 'Ask before format : ', Button( False ));
  21.   WriteLn( CopyRight,' Max Maischein' );
  22.   WriteLn;
  23.   WriteLn( 'And now we''ll UnInstall the set <Press Enter>:' );
  24.   ReadLn;
  25.   UnInstallCharSet;
  26.   WriteLn( 'Normally you should clear the screen before doing so,' );
  27.   WriteLn( 'because otherwise, the chars #01-#05 will remain onscreen.' );
  28.   Write( '<Press Enter>' );
  29.   ReadLn;
  30.   ClrScr;
  31.   WriteLn( 'And this is how the buttons will look on any other adapter than a VGA :' );
  32.   WriteLn( 'Format disk       : ',Button( True ));
  33.   WriteLn( 'Ask before format : ', Button( False ));
  34.   WriteLn( CopyRight,' Max Maischein' );
  35.   WriteLn;
  36.   Write( '<Press Enter>' );
  37.   ReadLn;
  38.  
  39. End.